home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / DOS.DEF < prev    next >
Encoding:
Modula Definition  |  2000-09-26  |  801 b   |  34 lines
  1. DEFINITION MODULE DOS;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. CONST
  6.  offsetBeginning = 0;
  7.  offsetCurrent   = 1;
  8.  offsetEnd       = 2;
  9.  
  10. TYPE
  11.  FileHandle = RECORD
  12.   handle  : INTEGER;
  13.   name    : ARRAY [0..29] OF CHAR;
  14.   tempNum : CARDINAL;
  15.  END (* RECORD *);
  16.  
  17.  FileHandlePtr = POINTER TO FileHandle;
  18.  
  19. PROCEDURE OpenTemporaryFile() : FileHandlePtr;
  20. PROCEDURE CloseTemporaryFile(file : FileHandlePtr);
  21.  
  22. PROCEDURE WriteFile(file : FileHandlePtr;
  23.                     data : ADDRESS;
  24.                     len  : CARDINAL) : CARDINAL;
  25.  
  26. PROCEDURE ReadFile(file : FileHandlePtr;
  27.                    data : ADDRESS;
  28.                    len  : CARDINAL) : CARDINAL;
  29.  
  30. PROCEDURE SeekFile(file : FileHandlePtr;
  31.                pos      : LONGCARD;
  32.                mode     : CARDINAL);
  33.  
  34. END DOS.